home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
User's Choice Windows CD
/
User's Choice Windows CD (CMS Software)(1993).iso
/
utility2
/
wine02bx.zip
/
LISP
/
PACKAGES
/
LPR.ELC
< prev
next >
Wrap
Text File
|
1993-03-28
|
2KB
|
28 lines
;;; compiled by jwz@thalidomide on Fri Nov 13 02:08:54 1992
;;; from file /u/jwz/emacs19/lisp/packages/lpr.el
;;; emacs version 19.3.4 Lucid.
;;; bytecomp version 2.08; 27-aug-92.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs18.
(if (and (boundp 'emacs-version)
(or (and (boundp 'epoch::version) epoch::version)
(string-lessp emacs-version "19")))
(error "This file was compiled for Emacs19."))
(defvar lpr-command (byte-code "┴>½é┬ç├ç" [system-type (usg-unix-v hpux silicon-graphics-unix) "lp" "lpr"] 2) "\
Shell command for printing a file")
(fset 'lpr-buffer #[nil "└ed ┬$ç" [print-region-1 lpr-switches nil] 5 "\
Print buffer contents as with Unix command `lpr'.
`lpr-switches' is a list of extra switches (strings) to pass to lpr." nil])
(fset 'print-buffer #[nil "└ed ┬$ç" [print-region-1 lpr-switches t] 5 "\
Print buffer contents as with Unix command `lpr -p'.
`lpr-switches' is a list of extra switches (strings) to pass to lpr." nil])
(fset 'lpr-region #[(start end) "└ \n─$ç" [print-region-1 start end lpr-switches nil] 5 "\
Print region contents as with Unix command `lpr'.
`lpr-switches' is a list of extra switches (strings) to pass to lpr." "r"])
(fset 'print-region #[(start end) "└ \n─$ç" [print-region-1 start end lpr-switches t] 5 "\
Print region contents as with Unix command `lpr -p'.
`lpr-switches' is a list of extra switches (strings) to pass to lpr." "r"])
(byte-code "└┴Mê┬├Mç" [print-region-1 #[(start end switches page-headers) "└ ┴P\nè┼╞!ê\n╟U¼è╚ ê╔ed\"ê\n½ú╠=½æ╚ ê═╨╤ë╥&ê¬î╘Ü¡ä╒B╫═╥ëë»╪=¡ï╘=¡à┘┌Fññ\"ê┼█!+ç" [buffer-name " Emacs buffer" tab-width width name message "Spooling..." 8 print-region-new-buffer untabify page-headers system-type usg-unix-v call-process-region start end "pr" t nil lpr-command "lpr" "-p" switches apply berkeley-unix "-J" "-T" "Spooling...done"] 8] print-region-new-buffer #[nil "└ ┴ÿ«£p├┴!qê~ê─ ê┼\n#êedë)ç" [buffer-name " *spool temp*" oldbuf get-buffer-create erase-buffer insert-buffer-substring start end] 4]] 2)